SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
CREATE PROC [dbo].[SP_TXMVTO_CNTB_Q44]  
/*-------------------------------------------------------------------*/                  
/*----- Empresa           : OFISIS S.A.                          ----*/                  
/*----- Cliente           : OFISIS S.A.                          ----*/                  
/*----- Sistema           : Contabilidad                         ----*/                  
/*----- Modulo            : Empresa                              ----*/                  
/*----- Programa          : reporte verif cuentas de gestion     ----*/                  
/*----- Nombre            : SP_TXMVTO_CNTB_Q44                   ----*/                  
/*----- Script            : TXMVTO_CNTB                          ----*/                  
/*----- Desarrollado por  : PDGV                                 ----*/                  
/*----- Fecha             : 07/07/2006                           ----*/                  
/*----- Base de Datos     : MS SQL Server                        ----*/                  
/*----- Version BD        : 8.0                                  ----*/                  
/*-------------------------------------------------------------------*/                  
/*----- modif por : Percy garcia				 ----*/
/*----- fecha modif : 27/04/2009				 ----*/
/*----- detalle modif : valida que el mensaje "EXISTEN ASIENTOS  ----*/
/*----- INGRESADOS DIRECTAMENTE CON LAS CUENTAS CONTRAPARTIDA/	 ----*/
/*----- DESTINO" se cumpla para la TRAUXI_GEST			 ----*/
/*-------------------------------------------------------------------*/                  
/*----- Drop proc SP_TXMVTO_CNTB_Q44                             ----*/                  
/*----- Grant all on SP_TXMVTO_CNTB_Q44 to PUBLIC                ----*/                  
/*----- EXEC SP_TXMVTO_CNTB_Q44  '01',1,2006,4,'R',''		 ----*/                  
/*-------------------------------------------------------------------*/                  
@ISCO_EMPR           TD_VC_002,          
@INNU_CNTB_EMPR      TD_IN_001_CONT,  
@INNU_ANNO           Int,                  
@INNU_MESE           Int,  
@ISTI_REPO           Varchar(1),  
@ISCA_WHER_LOCA      Varchar(8000)  
    
As      
      
Declare      
 @VSNU_CNTB_EMPR    TD_VC_010,  
 @VSNU_ANNO         TD_VC_004,  
 @VSNU_MESE         TD_VC_002  
  
 Create Table #TWMVTO_FCOERCX   
 (  
 CO_CNTA_EMPR     Varchar(20) NULL,  
 TI_AUXI_EMPR     Varchar(1) NULL,  
 CO_AUXI_EMPR     Varchar(20) NULL,  
 DE_CNTA_EMPR     Varchar(50) NULL,  
 NO_AUXI          Varchar(100) NULL ,   
 ST_AUXI_EMPR     Varchar(1) NULL,  
 ST_GEST_CNTA     Varchar(1) NULL,  
 CO_CNTA_CONT     Varchar(20) NULL,  
 CO_CNTA_DEST     Varchar(20) NULL,  
 ST_GEST_ASTO     Varchar(1) NULL,  
 TI_SITU          Varchar(3) NULL,  
 CO_UNID_ORIG     Varchar(3) NULL,  
 CO_OPRC_ORIG     Varchar(3) NULL,  
 NU_ASTO_ORIG     Varchar(10) NULL,  
 NU_SECU_ORIG     Numeric NULL,  
 CO_CNTA_ORIG     Varchar(20) NULL,  
 CO_UNID_CNTB     Varchar(3) NULL,    
 CO_OPRC_CNTB     Varchar(3) NULL,  
 NU_ASTO          Varchar(10) NULL,  
 NU_SECU          Numeric NULL,  
 CO_EMPR          Varchar(2) NULL,  
 NU_PROC          Int NULL,  
 FE_ASTO_CNTB     DateTime NULL,  
 CO_ORDE_SERV     Varchar(20) NULL,  
 TI_DOCU          Varchar(3) NULL,  
 NU_DOCU          Varchar(20) NULL,  
 FE_DOCU          DateTime NULL,  
 DE_GLOS          Varchar(100) NULL ,  
 TI_OPER          Varchar(3) NULL,  
 IM_MVTO_ORIG     Numeric(16,4) NULL,  
 IM_MVTO_CNTB     Numeric(16,4) NULL,  
 CO_USUA_CREA     Varchar(8) NULL,  
 FE_USUA_CREA     DateTime NULL,  
 CO_USUA_MODI     Varchar(8) NULL,  
 FE_USUA_MODI     DateTime NULL)  
  
CREATE INDEX ITWMVTO_FCOERCX_01 ON #TWMVTO_FCOERCX (CO_CNTA_EMPR,TI_AUXI_EMPR,CO_AUXI_EMPR)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_02 ON #TWMVTO_FCOERCX (CO_CNTA_EMPR,ST_AUXI_EMPR,ST_GEST_CNTA,CO_CNTA_CONT,CO_CNTA_DEST)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_03 ON #TWMVTO_FCOERCX (ST_AUXI_EMPR,ST_GEST_CNTA,CO_CNTA_CONT,CO_CNTA_DEST)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_04 ON #TWMVTO_FCOERCX (CO_CNTA_EMPR,ST_GEST_ASTO)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_05 ON #TWMVTO_FCOERCX (ST_GEST_CNTA,CO_CNTA_DEST,CO_CNTA_CONT)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_06 ON #TWMVTO_FCOERCX (ST_GEST_CNTA,TI_SITU,CO_CNTA_CONT)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_07 ON #TWMVTO_FCOERCX (ST_GEST_CNTA,TI_SITU,CO_CNTA_DEST)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_08 ON #TWMVTO_FCOERCX (CO_UNID_ORIG,CO_OPRC_ORIG,NU_ASTO_ORIG,NU_SECU_ORIG,CO_CNTA_ORIG)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_09 ON #TWMVTO_FCOERCX (CO_UNID_CNTB,CO_OPRC_CNTB,NU_ASTO,NU_SECU,CO_CNTA_EMPR)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_10 ON #TWMVTO_FCOERCX (CO_EMPR,CO_CNTA_EMPR,TI_AUXI_EMPR,CO_AUXI_EMPR)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_11 ON #TWMVTO_FCOERCX (ST_GEST_ASTO,TI_SITU)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_12 ON #TWMVTO_FCOERCX (CO_EMPR,CO_CNTA_ORIG,CO_CNTA_EMPR)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_13 ON #TWMVTO_FCOERCX (CO_EMPR,NU_PROC)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_14 ON #TWMVTO_FCOERCX (CO_EMPR,TI_AUXI_EMPR)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_15 ON #TWMVTO_FCOERCX (ST_GEST_CNTA,TI_SITU)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_16 ON #TWMVTO_FCOERCX (CO_UNID_CNTB,CO_OPRC_CNTB,NU_ASTO,NU_SECU,CO_CNTA_EMPR,ST_GEST_ASTO)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_17 ON #TWMVTO_FCOERCX (CO_EMPR,ST_GEST_ASTO,TI_SITU)  
ON [PRIMARY]  
  
CREATE INDEX ITWMVTO_FCOERCX_18 ON #TWMVTO_FCOERCX (ST_GEST_ASTO)  
ON [PRIMARY]  
  
  
  
 Select  @VSNU_CNTB_EMPR = Convert(Varchar(2),@INNU_CNTB_EMPR)  
 Select  @VSNU_ANNO = Convert(Varchar(4),@INNU_ANNO)  
 Select  @VSNU_MESE = Convert(Varchar(2),@INNU_MESE)  
  
 Exec ('Insert Into #TWMVTO_FCOERCX (  
 CO_CNTA_EMPR,TI_AUXI_EMPR,CO_AUXI_EMPR,DE_CNTA_EMPR,NO_AUXI,  
 ST_AUXI_EMPR,ST_GEST_CNTA,CO_CNTA_CONT,CO_CNTA_DEST,ST_GEST_ASTO,  
 TI_SITU,CO_UNID_ORIG,CO_OPRC_ORIG,NU_ASTO_ORIG,NU_SECU_ORIG,CO_CNTA_ORIG,  
 CO_UNID_CNTB,CO_OPRC_CNTB,NU_ASTO,NU_SECU,CO_EMPR,NU_PROC,  
 FE_ASTO_CNTB,CO_ORDE_SERV,TI_DOCU,NU_DOCU,FE_DOCU,DE_GLOS,  
 TI_OPER,IM_MVTO_ORIG,IM_MVTO_CNTB,CO_USUA_CREA,FE_USUA_CREA,  
 CO_USUA_MODI,FE_USUA_MODI)  
 Select t1.CO_CNTA_EMPR,t1.TI_AUXI_EMPR,t1.CO_AUXI_EMPR, t2.DE_CNTA_EMPR, t3.NO_AUXI,  
 t2.ST_AUXI_EMPR,t2.ST_GEST,NullIf(Rtrim(t2.CO_CNTA_CONT),""),NullIf(Rtrim(t2.CO_CNTA_DEST),""),  
 t1.ST_GEST,t2.TI_SITU, t1.CO_UNID_ORIG, t1.CO_OPRC_ORIG, t1.NU_ASTO_ORIG, t1.NU_SECU_ORIG,CO_CNTA_ORIG,  
 t1.CO_UNID_CNTB, t1.CO_OPRC_CNTB, t1.NU_ASTO, t1.NU_SECU,  
 t1.CO_EMPR,t1.NU_PROC,T1.FE_ASTO_CNTB,T1.CO_ORDE_SERV,T1.TI_DOCU,T1.NU_DOCU,T1.FE_DOCU,T1.DE_GLOS,  
 T1.TI_OPER,T1.IM_MVTO_ORIG,T1.IM_MVTO_CNTB,t1.CO_USUA_CREA,t1.FE_USUA_CREA,  
 t1.CO_USUA_MODI,t1.FE_USUA_MODI  
 From TXMVTO_CNTB t1 Left Outer Join TMAUXI_EMPR t3  
           On t3.CO_EMPR = t1.CO_EMPR  
           And t3.TI_AUXI_EMPR = t1.TI_AUXI_EMPR  
           And t3.CO_AUXI_EMPR = t1.CO_AUXI_EMPR, TMPLAN_ANNO t2,TMUNID_CNTB  
 Where t1.CO_EMPR = "' + @ISCO_EMPR + '"   
 And t1.NU_CNTB_EMPR = ' + @VSNU_CNTB_EMPR + '   
 And t1.NU_ANNO = ' + @VSNU_ANNO + '   
 And t1.NU_MESE = ' + @VSNU_MESE + '   
 And t1.SI_MVTO_CNTB = "APR"  
 And t2.CO_EMPR = t1.CO_EMPR  
 And t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR  
 And TMUNID_CNTB.CO_EMPR = t1.CO_EMPR  
 And TMUNID_CNTB.CO_UNID_CNTB = t1.CO_UNID_CNTB ' + @ISCA_WHER_LOCA )  
             
If @ISTI_REPO = 'R'  
Begin   
Exec (' Select "FALTA PARAMETRIZAR LAS CUENTAS DE GESTION POR AUXILIAR",  
  T1.CO_CNTA_EMPR, Max(T1.DE_CNTA_EMPR),  
  T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR,  
  Max(T1.NO_AUXI)  
  From #TWMVTO_FCOERCX T1  
  Where Not Exists (Select TRAUXI_GEST.CO_EMPR  
                            From TRAUXI_GEST WHERE TRAUXI_GEST.CO_EMPR = "' + @ISCO_EMPR + '"  
                            And TRAUXI_GEST.CO_CNTA_EMPR = t1.CO_CNTA_EMPR  
                            And TRAUXI_GEST.TI_AUXI_EMPR = t1.TI_AUXI_EMPR  
                            And TRAUXI_GEST.CO_AUXI_EMPR = t1.CO_AUXI_EMPR )  
  AND T1.CO_CNTA_EMPR IN (Select CO_CNTA_EMPR From TRAUXI_GEST WHERE CO_EMPR = "' + @ISCO_EMPR + '")  
  AND T1.ST_AUXI_EMPR = "S"   
                AND T1.ST_GEST_CNTA = "S"  
  AND T1.CO_CNTA_CONT is null  
  AND T1.CO_CNTA_DEST is null  
  Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR  
  Union  
  Select "FALTA PARAMETRIZAR CUENTAS CONTR. Y DESTINO EN PLAN DE CUENTAS(CUENTAS LLEVAN AUX.), GESTION NO DEFINIDA POR AUX.",  
           T1.CO_CNTA_EMPR, Max(T1.DE_CNTA_EMPR), T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR,  
           MAX(T1.NO_AUXI)  
  From #TWMVTO_FCOERCX T1  
  Where T1.CO_CNTA_EMPR NOT IN (Select CO_CNTA_EMPR From TRAUXI_GEST WHERE CO_EMPR = "' + @ISCO_EMPR + '")  
  And T1.ST_AUXI_EMPR = "S" AND T1.ST_GEST_CNTA = "S"  
  AND T1.CO_CNTA_CONT is null  
  AND T1.CO_CNTA_DEST is null  
  Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR   
  UNION  
  Select "FALTA PARAMETRIZAR CUENTAS DE GESTION EN PLAN DE CUENTAS(CUENTAS NO LLEVAN AUXILIAR)",  
           T1.CO_CNTA_EMPR, Max(T1.DE_CNTA_EMPR), Max(T1.TI_AUXI_EMPR), Max(T1.CO_AUXI_EMPR),  
           NULL  
  From #TWMVTO_FCOERCX T1  
  Where T1.ST_AUXI_EMPR = "N" AND T1.ST_GEST_CNTA = "S"  
  AND T1.CO_CNTA_CONT is null  
  AND T1.CO_CNTA_DEST is null  
  Group By T1.CO_CNTA_EMPR    
  
                UNION  
  
  Select "EXISTEN ASIENTOS INGRESADOS DIRECTAMENTE CON LAS CUENTAS CONTRAPARTIDA/DESTINO",  
           T1.CO_CNTA_EMPR, Max(T1.DE_CNTA_EMPR), T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR,  
           Max(T1.NO_AUXI)  
  From #TWMVTO_FCOERCX T1,  
     ( Select Distinct CO_CNTA_CONT CO_CNTA_CONT, CO_CNTA_DEST CO_CNTA_DEST  
     From TMPLAN_ANNO  Where CO_EMPR = "' + @ISCO_EMPR + '" And ST_GEST = "S" And TI_SITU = "ACT"
Union All 
Select Distinct CO_CNTA_CONT , CO_CNTA_DEST 
From TRAUXI_GEST  Where CO_EMPR = "' + @ISCO_EMPR + '" 
) T2  
  Where ( t1.CO_CNTA_EMPR = t2.CO_CNTA_CONT Or t1.CO_CNTA_EMPR = t2.CO_CNTA_DEST)  
  And t1.ST_GEST_ASTO = "N"  
          Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR   

          
  UNION  
  
  Select "EXISTEN CODIGOS DE AUXILIARES CON LONGITUD MENOR A LA PARAMETRIZADA",  
           T1.CO_CNTA_EMPR, Max(T1.DE_CNTA_EMPR), T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR,  
           Max(T1.NO_AUXI)  
          From #TWMVTO_FCOERCX T1,TTAUXI_EMPR t3  
  Where t3.CO_EMPR = t1.CO_EMPR   
  And  t3.TI_AUXI_EMPR = t1.TI_AUXI_EMPR   
  And  DataLength(t1.CO_AUXI_EMPR) < t3.NV_INFO_AUXI  
  And  t1.ST_GEST_CNTA = "S"  
  Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR   
  
  UNION  
  
  Select "EXISTEN CUENTAS CONTABLES CON AMARRE DE GESTION POR CUENTA Y TAMBIEN POR AUXILIAR",  
           T1.CO_CNTA_EMPR, Max(T1.DE_CNTA_EMPR), T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR,  
           Max(T1.NO_AUXI)  
  From #TWMVTO_FCOERCX T1  
  Where t1.ST_GEST_CNTA = "S"  
  And t1.CO_CNTA_DEST IS NOT NULL  
  And t1.CO_CNTA_CONT IS NOT NULL  
  And Exists (Select t9.CO_EMPR From TRAUXI_GEST t9 Where t9.CO_EMPR = "' + @ISCO_EMPR + '"  
   And t9.CO_CNTA_EMPR = t1.CO_CNTA_EMPR)  
  Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR  
  
  UNION  
  
  Select "FALTA INGRESAR EN EL AMARRE DE GESTION POR AUXILIAR LAS CUENTAS CONTR./DESTINO",  
           T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, Max(T1.DE_CNTA_EMPR) AS DESCRIPCION_AUXILIAR,  
           T1.TI_AUXI_EMPR AS TIPO_AUXILIAR, T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR,  
           MAX(T1.NO_AUXI) AS DESCRIPCION_AUXILIAR  
  From #TWMVTO_FCOERCX T1, TRAUXI_GEST t4  
  Where t4.CO_EMPR = t1.CO_EMPR   
  And  t4.CO_CNTA_EMPR = t1.CO_CNTA_EMPR  
  And  t4.TI_AUXI_EMPR = t1.TI_AUXI_EMPR   
  And  t4.CO_AUXI_EMPR = t1.CO_AUXI_EMPR   
  AND (T4.CO_CNTA_CONT IS NULL  Or T4.CO_CNTA_DEST IS NULL  )   
  AND T1.ST_AUXI_EMPR = "S" AND T1.ST_GEST_CNTA = "S"   
  AND T1.CO_CNTA_CONT IS NULL  
  AND T1.CO_CNTA_DEST IS NULL   
  Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR   
  
                 UNION  
  
  Select "PLAN CONTABLE: NO EXISTE GESTION PARA CONTRAPARTIDA O SE ENCUENTRA EN OTRA CUENTA" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, Max(T1.DE_CNTA_EMPR) AS DESCRIPCION_AUXILIAR,  
  T1.TI_AUXI_EMPR AS TIPO_AUXILIAR, T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR,  
  MAX(T1.NO_AUXI) AS DESCRIPCION_AUXILIAR  
  From #TWMVTO_FCOERCX T1   
  Where t1.ST_GEST_CNTA = "S"  
  And t1.TI_SITU = "ACT"  
  And t1.CO_CNTA_CONT IS NOT NULL  
  And Not Exists (Select t9.CO_EMPR From #TWMVTO_FCOERCX t9  
   Where t9.CO_UNID_ORIG = t1.CO_UNID_CNTB   
                        And t9.CO_OPRC_ORIG = t1.CO_OPRC_CNTB  
   And t9.NU_ASTO_ORIG = t1.NU_ASTO   
                        And t9.NU_SECU_ORIG = t1.NU_SECU  
   And t9.CO_CNTA_ORIG = t1.CO_CNTA_EMPR  
   And t9.ST_GEST_ASTO = "S"      
   And t1.CO_CNTA_CONT = t9.CO_CNTA_EMPR)   
  Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR  
    
  UNION  
  
  Select "PLAN CONTABLE: NO EXISTE GESTION PARA DESTINO O SE ENCUENTRA EN OTRA CUENTA" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, Max(T1.DE_CNTA_EMPR) AS DESCRIPCION_AUXILIAR,  
  T1.TI_AUXI_EMPR AS TIPO_AUXILIAR, T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR,  
  MAX(T1.NO_AUXI) AS DESCRIPCION_AUXILIAR  
  From #TWMVTO_FCOERCX T1   
  Where t1.ST_GEST_CNTA = "S"  
  And t1.TI_SITU = "ACT"  
  And t1.CO_CNTA_DEST IS NOT NULL   
  And Not Exists (Select t9.CO_EMPR From #TWMVTO_FCOERCX t9  
   Where t9.CO_UNID_ORIG = t1.CO_UNID_CNTB   
                        And t9.CO_OPRC_ORIG = t1.CO_OPRC_CNTB  
   And t9.NU_ASTO_ORIG = t1.NU_ASTO    
                        And t9.NU_SECU_ORIG = t1.NU_SECU  
   And t9.CO_CNTA_ORIG = t1.CO_CNTA_EMPR   
   And t9.ST_GEST_ASTO = "S"      
   And t1.CO_CNTA_DEST = t9.CO_CNTA_EMPR)   
  Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR   
    
  Union  
  Select "GESTION DEFINIDA POR AUXILIAR, NO EXISTE GESTION PARA CONTRAPARTIDA O SE ENCUENTRA EN OTRA CUENTA" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, Max(T1.DE_CNTA_EMPR) AS DESCRIPCION_AUXILIAR,  
  T1.TI_AUXI_EMPR AS TIPO_AUXILIAR, T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR,  
  MAX(t1.NO_AUXI) AS DESCRIPCION_AUXILIAR  
  From #TWMVTO_FCOERCX t1, TRAUXI_GEST t3  
  Where t1.ST_GEST_CNTA = "S"  
  And t1.TI_SITU = "ACT"  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_EMPR  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_EMPR  
  And t3.TI_AUXI_EMPR = t1.TI_AUXI_EMPR  
  And t3.CO_AUXI_EMPR = t1.CO_AUXI_EMPR  
  And Rtrim(IsNull(t3.CO_CNTA_CONT, "")) != ""  
  And Not Exists (Select t5.CO_EMPR From #TWMVTO_FCOERCX t5, TRAUXI_GEST t6  
   Where t5.CO_UNID_ORIG = t1.CO_UNID_CNTB   
                        And t5.CO_OPRC_ORIG = t1.CO_OPRC_CNTB  
   And t5.NU_ASTO_ORIG = t1.NU_ASTO   
                        And t5.NU_SECU_ORIG = t1.NU_SECU  
   And t5.CO_CNTA_ORIG = t1.CO_CNTA_EMPR   
   And t5.ST_GEST_ASTO = "S"      
                        And t6.CO_EMPR = t1.CO_EMPR  
   And t6.CO_CNTA_EMPR = t1.CO_CNTA_EMPR   
                        And t6.TI_AUXI_EMPR = t1.TI_AUXI_EMPR  
   And t6.CO_AUXI_EMPR = t1.CO_AUXI_EMPR   
                        And t6.CO_EMPR = t5.CO_EMPR  
   And t6.CO_CNTA_CONT = t5.CO_CNTA_EMPR )  
  Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR    
  Union  
  Select "GESTION DEFINIDA POR AUXILIAR, NO EXISTE GESTION PARA DESTINO O SE ENCUENTRA EN OTRA CUENTA" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, Max(T1.DE_CNTA_EMPR) AS DESCRIPCION_AUXILIAR,  
  T1.TI_AUXI_EMPR AS TIPO_AUXILIAR, T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR,  
  MAX(t1.NO_AUXI) AS DESCRIPCION_AUXILIAR  
  From #TWMVTO_FCOERCX t1, TRAUXI_GEST t3   
  Where t1.ST_GEST_CNTA = "S"  
  And t1.TI_SITU = "ACT"  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_EMPR  
  And t3.TI_AUXI_EMPR = t1.TI_AUXI_EMPR  
  And t3.CO_AUXI_EMPR = t1.CO_AUXI_EMPR  
  And Rtrim(IsNull(t3.CO_CNTA_DEST, "")) != ""  
  And Not Exists (Select t5.CO_EMPR From #TWMVTO_FCOERCX t5, TRAUXI_GEST t6  
   Where t5.CO_UNID_ORIG = t1.CO_UNID_CNTB   
                        And t5.CO_OPRC_ORIG = t1.CO_OPRC_CNTB  
   And t5.NU_ASTO_ORIG = t1.NU_ASTO   
                        And t5.NU_SECU_ORIG = t1.NU_SECU  
   And t5.CO_CNTA_ORIG = t1.CO_CNTA_EMPR                       
   And t5.ST_GEST_ASTO = "S"      
                        And t6.CO_EMPR = t1.CO_EMPR  
   And t6.CO_CNTA_EMPR = t1.CO_CNTA_EMPR   
                        And t6.TI_AUXI_EMPR = t1.TI_AUXI_EMPR  
   And t6.CO_AUXI_EMPR = t1.CO_AUXI_EMPR   
                 And t6.CO_EMPR = t5.CO_EMPR  
   And t6.CO_CNTA_DEST = t5.CO_CNTA_EMPR)  
               Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR   
 Union  
  Select "PLAN CONTABLE: EXISTE MOVIMIENTO GESTION CONTRAPARTIDA PERO NO EL MOVIMIENTO ORIGEN" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, Max(T1.DE_CNTA_EMPR) AS DESCRIPCION_AUXILIAR,  
  T1.TI_AUXI_EMPR AS TIPO_AUXILIAR, T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR,  
  MAX(t1.NO_AUXI) AS DESCRIPCION_AUXILIAR  
  From #TWMVTO_FCOERCX t1,   
           (Select CO_EMPR, NU_ANNO,CO_CNTA_EMPR, CO_CNTA_CONT   
           From TMPLAN_ANNO  
           Where CO_EMPR = "' + @ISCO_EMPR + '"  
           And ST_GEST = "S"  
           And  Rtrim(IsNull(CO_CNTA_CONT, "")) != "" ) t3   
  Where t1.ST_GEST_ASTO = "S"  
  And t1.TI_SITU = "ACT"  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And t3.CO_CNTA_CONT = t1.CO_CNTA_EMPR  
  And Not Exists (Select CO_EMPR From #TWMVTO_FCOERCX  
  Where CO_UNID_CNTB = t1.CO_UNID_ORIG  
  And CO_OPRC_CNTB = t1.CO_OPRC_ORIG  
  And NU_ASTO = t1.NU_ASTO_ORIG  
  And NU_SECU = t1.NU_SECU_ORIG  
  And CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And ST_GEST_ASTO = "N"   
  And t3.CO_EMPR = CO_EMPR  
  And t3.CO_CNTA_EMPR = CO_CNTA_EMPR  
  And t3.CO_CNTA_CONT = t1.CO_CNTA_EMPR)    
  Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR  
  UNION  
  Select "PLAN CONTABLE: EXISTE MOVIMIENTO GESTION DESTINO PERO NO EL MOVIMIENTO ORIGEN" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, Max(T1.DE_CNTA_EMPR) AS DESCRIPCION_AUXILIAR,  
  T1.TI_AUXI_EMPR AS TIPO_AUXILIAR, T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR,  
  MAX(t1.NO_AUXI) AS DESCRIPCION_AUXILIAR  
  From #TWMVTO_FCOERCX t1,   
           (Select CO_EMPR, NU_ANNO,  
           CO_CNTA_EMPR, CO_CNTA_DEST   
           From TMPLAN_ANNO  
           Where CO_EMPR = "' + @ISCO_EMPR + '"  
           And ST_GEST = "S"  
           And Rtrim(IsNull(CO_CNTA_DEST, "")) != "" )t3   
  Where t1.ST_GEST_ASTO = "S"  
  And t1.TI_SITU = "ACT"  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And t3.CO_CNTA_DEST = t1.CO_CNTA_EMPR  
  And Not Exists (Select CO_EMPR From #TWMVTO_FCOERCX  
   Where CO_UNID_CNTB = t1.CO_UNID_ORIG   
                        And CO_OPRC_CNTB = t1.CO_OPRC_ORIG  
   And NU_ASTO = t1.NU_ASTO_ORIG    
                        And NU_SECU = t1.NU_SECU_ORIG  
   And CO_CNTA_EMPR = t1.CO_CNTA_ORIG   
                        And ST_GEST_ASTO = "N"  
                        And t3.CO_EMPR = CO_EMPR  
   And t3.CO_CNTA_EMPR = CO_CNTA_EMPR   
                        And t3.CO_CNTA_DEST = t1.CO_CNTA_EMPR)        
               Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR   
  
 UNION  
  
  Select "GESTION DEFINIDA POR AUXILIAR, EXISTE MOVIMIENTO GESTION CONTRAPARTIDA PERO NO EL MOVIMIENTO ORIGEN" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, Max(T1.DE_CNTA_EMPR) AS DESCRIPCION_AUXILIAR,  
  T1.TI_AUXI_EMPR AS TIPO_AUXILIAR, T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR,  
  MAX(t1.NO_AUXI) AS DESCRIPCION_AUXILIAR  
  From #TWMVTO_FCOERCX t1,  
           (Select CO_EMPR, NU_ANNO, CO_CNTA_EMPR,  
           TI_AUXI_EMPR, CO_AUXI_EMPR, CO_CNTA_CONT   
           From TRAUXI_GEST  
           Where CO_EMPR = "' + @ISCO_EMPR + '"  
           And Rtrim(IsNull(CO_CNTA_CONT, "")) != "" )t3    
  Where t1.ST_GEST_ASTO = "S"  
  And t1.TI_SITU = "ACT"  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And t3.CO_CNTA_CONT = t1.CO_CNTA_EMPR  
  And Not Exists (Select tX.CO_EMPR From #TWMVTO_FCOERCX tX, TRAUXI_GEST tY  
   Where tX.CO_UNID_CNTB = t1.CO_UNID_ORIG   
                        And tX.CO_OPRC_CNTB = t1.CO_OPRC_ORIG  
   And tX.NU_ASTO = t1.NU_ASTO_ORIG   
                        And tX.NU_SECU = t1.NU_SECU_ORIG  
   And tX.CO_CNTA_EMPR = t1.CO_CNTA_ORIG   
   And tX.ST_GEST_ASTO = "N"   
             And tY.CO_EMPR = tX.CO_EMPR   
   And tY.CO_CNTA_EMPR = tX.CO_CNTA_EMPR    
                        And tY.TI_AUXI_EMPR = tX.TI_AUXI_EMPR   
   And tY.CO_AUXI_EMPR = tX.CO_AUXI_EMPR)   
  Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR  
    
  UNION  
  Select "GESTION DEFINIDA POR AUXILIAR, EXISTE MOVIMIENTO GESTION DESTINO PERO NO EL MOVIMIENTO ORIGEN" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, Max(T1.DE_CNTA_EMPR) AS DESCRIPCION_AUXILIAR,  
  T1.TI_AUXI_EMPR AS TIPO_AUXILIAR, T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR,  
  MAX(t1.NO_AUXI) AS DESCRIPCION_AUXILIAR  
  From #TWMVTO_FCOERCX t1,  
           (Select CO_EMPR, NU_ANNO, CO_CNTA_EMPR,  
           TI_AUXI_EMPR, CO_AUXI_EMPR, CO_CNTA_DEST  
           From TRAUXI_GEST  
           Where CO_EMPR = "' + @ISCO_EMPR + '"  
           And Rtrim(IsNull(CO_CNTA_DEST, "")) != "" )t3   
  Where t1.ST_GEST_ASTO = "S"  
  And t1.TI_SITU = "ACT"  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And t3.CO_CNTA_DEST = t1.CO_CNTA_EMPR  
  And Not Exists (Select tX.CO_EMPR From #TWMVTO_FCOERCX tX, TRAUXI_GEST tY  
   Where tX.CO_UNID_CNTB = t1.CO_UNID_ORIG  
   And tX.CO_OPRC_CNTB = t1.CO_OPRC_ORIG  
   And tX.NU_ASTO = t1.NU_ASTO_ORIG  
   And tX.NU_SECU = t1.NU_SECU_ORIG  
   And tX.CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
   And tX.ST_GEST_ASTO = "N"   
   And tY.CO_EMPR = tX.CO_EMPR   
   And tY.CO_CNTA_EMPR = tX.CO_CNTA_EMPR   
   And tY.TI_AUXI_EMPR = tX.TI_AUXI_EMPR   
   And tY.CO_AUXI_EMPR = tX.CO_AUXI_EMPR)    
   Group By T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR  
   Order By 1, 2 ')   
  
End   
  
  
If @ISTI_REPO = 'D'  
Begin  
  
Exec ('Select "FALTA PARAMETRIZAR LAS CUENTAS DE GESTION POR AUXILIAR" AS ERROR,  
             T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, T1.DE_CNTA_EMPR AS DESCRIPCION,  
             T1.FE_ASTO_CNTB AS FECHA_ASIENTO,  
             T1.TI_AUXI_EMPR AS TIPO_AUXILIAR, T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR, T1.CO_ORDE_SERV AS ACTIVIDAD,  
             T1.CO_UNID_CNTB AS UNIDAD_CONTABLE, T1.CO_OPRC_CNTB AS OPERACION_CONTABLE, T1.NU_ASTO AS NUMERO_ASIENTO,  
             T1.NU_SECU AS SECUENCIAL, T1.TI_DOCU AS TIPO_DOCUMENTO, T1.NU_DOCU AS NUMERO_DOCUMENTO,  
             CONVERT(VARCHAR(10), T1.FE_DOCU, 103) AS FECHA_DOCUMENTO, T1.DE_GLOS AS GLOSA, T1.TI_OPER AS TIPO_OPERACION,  
             T1.IM_MVTO_ORIG AS IMPORTE_ORIGEN, T1.IM_MVTO_CNTB AS IMPORTE_CONTABLE,   
              (Case When t1.NU_PROC = 0 Then "OFITESO" Else t3.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX T1  
           Left Outer Join TTPROC_INTE t3  
           On t3.CO_EMPR = t1.CO_EMPR  
           And t3.NU_PROC = t1.NU_PROC  
  Where Not Exists (Select TRAUXI_GEST.CO_EMPR  
                            From TRAUXI_GEST WHERE TRAUXI_GEST.CO_EMPR = "' + @ISCO_EMPR + '"  
                            And TRAUXI_GEST.CO_CNTA_EMPR = t1.CO_CNTA_EMPR  
                            And TRAUXI_GEST.TI_AUXI_EMPR = t1.TI_AUXI_EMPR  
                            And TRAUXI_GEST.CO_AUXI_EMPR = t1.CO_AUXI_EMPR )  
  AND T1.CO_CNTA_EMPR IN (Select CO_CNTA_EMPR From TRAUXI_GEST WHERE CO_EMPR = "' + @ISCO_EMPR + '")  
  AND T1.ST_AUXI_EMPR = "S"  
  AND T1.ST_GEST_CNTA = "S"  
  AND T1.CO_CNTA_CONT is null  
  AND T1.CO_CNTA_DEST is null  
  Union  
  Select "FALTA PARAMETRIZAR CUENTAS CONTR. Y DESTINO EN PLAN DE CUENTAS(CUENTAS LLEVAN AUX.), GESTION NO DEFINIDA POR AUX.",  
             T1.CO_CNTA_EMPR, T1.DE_CNTA_EMPR, T1.FE_ASTO_CNTB,  
             T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR, T1.CO_ORDE_SERV, T1.CO_UNID_CNTB, T1.CO_OPRC_CNTB,  
             T1.NU_ASTO, T1.NU_SECU, T1.TI_DOCU, T1.NU_DOCU, CONVERT(VARCHAR(10), T1.FE_DOCU, 103), T1.DE_GLOS,  
             T1.TI_OPER, T1.IM_MVTO_ORIG, T1.IM_MVTO_CNTB, (Case When t1.NU_PROC = 0 Then "OFITESO" Else t3.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX T1  
           Left Outer Join TTPROC_INTE t3  
           On t3.CO_EMPR = t1.CO_EMPR  
           And t3.NU_PROC = t1.NU_PROC  
  Where T1.CO_CNTA_EMPR NOT IN (Select CO_CNTA_EMPR From TRAUXI_GEST WHERE CO_EMPR = "' + @ISCO_EMPR + '")  
  AND T1.ST_AUXI_EMPR = "S"  
  AND T1.ST_GEST_CNTA = "S"  
  AND T1.CO_CNTA_CONT is null  
  AND T1.CO_CNTA_DEST is null  
  UNION  
  Select "FALTA PARAMETRIZAR LAS CUENTAS DE GESTION EN PLAN DE CUENTAS (CUENTAS NO LLEVAN AUXILIAR)",  
             T1.CO_CNTA_EMPR, T1.DE_CNTA_EMPR, T1.FE_ASTO_CNTB,  
             T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR, T1.CO_ORDE_SERV, T1.CO_UNID_CNTB, T1.CO_OPRC_CNTB,  
             T1.NU_ASTO, T1.NU_SECU, T1.TI_DOCU, T1.NU_DOCU, CONVERT(VARCHAR(10), T1.FE_DOCU, 103), T1.DE_GLOS,  
             T1.TI_OPER, T1.IM_MVTO_ORIG, T1.IM_MVTO_CNTB, (Case When t1.NU_PROC = 0 Then "OFITESO" Else t3.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX T1  
           Left Outer Join TTPROC_INTE t3  
           On t3.CO_EMPR = t1.CO_EMPR  
           And t3.NU_PROC = t1.NU_PROC  
  Where T1.ST_AUXI_EMPR = "N"  
  AND T1.ST_GEST_CNTA = "S"  
  AND T1.CO_CNTA_CONT is null   
  AND T1.CO_CNTA_DEST is null  
 UNION  
  
  Select "EXISTEN ASIENTOS INGRESADOS DIRECTAMENTE CON LAS CUENTAS CONTRAPARTIDA/DESTINO",  
  T1.CO_CNTA_EMPR, T1.DE_CNTA_EMPR, T1.FE_ASTO_CNTB,  
  T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR, T1.CO_ORDE_SERV, T1.CO_UNID_CNTB, T1.CO_OPRC_CNTB,  
  T1.NU_ASTO, T1.NU_SECU, T1.TI_DOCU, T1.NU_DOCU, CONVERT(VARCHAR(10), T1.FE_DOCU, 103), T1.DE_GLOS,  
  T1.TI_OPER, T1.IM_MVTO_ORIG, T1.IM_MVTO_CNTB, (Case When t1.NU_PROC = 0 Then "OFITESO" Else t4.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX T1  
  Left Outer Join TTPROC_INTE t4  
  On t4.CO_EMPR = t1.CO_EMPR   
  And t4.NU_PROC = t1.NU_PROC,   
  ( Select Distinct CO_CNTA_CONT CO_CNTA_CONT, CO_CNTA_DEST CO_CNTA_DEST  
  From TMPLAN_ANNO   
  Where CO_EMPR = "' + @ISCO_EMPR + '" And ST_GEST = "S" And TI_SITU = "ACT"
Union All 
Select Distinct CO_CNTA_CONT , CO_CNTA_DEST 
From TRAUXI_GEST  Where CO_EMPR = "' + @ISCO_EMPR + '" 
) T2   
  Where ( t2.CO_CNTA_CONT = t1.CO_CNTA_EMPR Or t2.CO_CNTA_DEST = t1.CO_CNTA_EMPR)  
  And t1.ST_GEST_ASTO = "N"  
    
  UNION  
  Select "EXISTEN CODIGOS DE AUXILIARES CON LONGITUD MENOR A LA PARAMETRIZADA",  
  T1.CO_CNTA_EMPR, T1.DE_CNTA_EMPR, T1.FE_ASTO_CNTB,  
  T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR, T1.CO_ORDE_SERV, T1.CO_UNID_CNTB, T1.CO_OPRC_CNTB,  
  T1.NU_ASTO, T1.NU_SECU, T1.TI_DOCU, T1.NU_DOCU, CONVERT(VARCHAR(10), T1.FE_DOCU, 103), T1.DE_GLOS,  
  T1.TI_OPER, T1.IM_MVTO_ORIG, T1.IM_MVTO_CNTB, (Case When t1.NU_PROC = 0 Then "OFITESO" Else t4.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX T1  
  Left Outer Join TTPROC_INTE t4  
  On t4.CO_EMPR = t1.CO_EMPR   
  And t4.NU_PROC = t1.NU_PROC, TTAUXI_EMPR t3  
  Where t3.CO_EMPR = t1.CO_EMPR   
  And  t3.TI_AUXI_EMPR = t1.TI_AUXI_EMPR   
  And  DataLength(t1.CO_AUXI_EMPR) < t3.NV_INFO_AUXI  
  And  t1.ST_GEST_CNTA = "S"  
    
  UNION  
  Select "EXISTEN CUENTAS CONTABLES CON AMARRE DE GESTION POR CUENTA Y TAMBIEN POR AUXILIAR",  
  T1.CO_CNTA_EMPR, T1.DE_CNTA_EMPR, T1.FE_ASTO_CNTB,  
  T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR, T1.CO_ORDE_SERV, T1.CO_UNID_CNTB, T1.CO_OPRC_CNTB,  
  T1.NU_ASTO, T1.NU_SECU, T1.TI_DOCU, T1.NU_DOCU, CONVERT(VARCHAR(10), T1.FE_DOCU, 103), T1.DE_GLOS,  
  T1.TI_OPER, T1.IM_MVTO_ORIG, T1.IM_MVTO_CNTB, (Case When t1.NU_PROC = 0 Then "OFITESO" Else t4.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX T1  
  Left Outer Join TTPROC_INTE t4  
  On t4.CO_EMPR = t1.CO_EMPR   
  And t4.NU_PROC = t1.NU_PROC  
  Where t1.ST_GEST_CNTA = "S"  
  And t1.CO_CNTA_DEST IS NOT NULL  
  And t1.CO_CNTA_CONT IS NOT NULL  
  And Exists (Select t9.CO_EMPR From TRAUXI_GEST t9 Where t9.CO_EMPR = "' + @ISCO_EMPR + '"  
   And t9.CO_CNTA_EMPR = t1.CO_CNTA_EMPR)  
    
  Union   
  Select "FALTA INGRESAR EN EL AMARRE DE GESTION POR AUXILIAR LAS CUENTAS CONTR./DESTINO" AS ERROR,  
  T1.CO_CNTA_EMPR, T1.DE_CNTA_EMPR, T1.FE_ASTO_CNTB,  
  T1.TI_AUXI_EMPR, T1.CO_AUXI_EMPR, T1.CO_ORDE_SERV, T1.CO_UNID_CNTB, T1.CO_OPRC_CNTB,  
  T1.NU_ASTO, T1.NU_SECU, T1.TI_DOCU, T1.NU_DOCU, CONVERT(VARCHAR(10), T1.FE_DOCU, 103), T1.DE_GLOS,  
  T1.TI_OPER, T1.IM_MVTO_ORIG, T1.IM_MVTO_CNTB, (Case When t1.NU_PROC = 0 Then "OFITESO" Else t4.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX T1  
  Left Outer Join TTPROC_INTE t4  
  On t4.CO_EMPR = t1.CO_EMPR   
  And t4.NU_PROC = t1.NU_PROC,TRAUXI_GEST t5  
  Where t5.CO_EMPR = t1.CO_EMPR   
  And  t5.CO_CNTA_EMPR = t1.CO_CNTA_EMPR  
  And  t5.TI_AUXI_EMPR = t1.TI_AUXI_EMPR  
  And  t5.CO_AUXI_EMPR = t1.CO_AUXI_EMPR  
  AND ( RTrim(IsNull(T5.CO_CNTA_CONT, "")) = "" Or RTrim(IsNull(T5.CO_CNTA_DEST,"")) = ""  )  
  AND T1.ST_AUXI_EMPR = "S" AND T1.ST_GEST_CNTA = "S"  
  AND T1.CO_CNTA_CONT IS NULL  
  And T1.CO_CNTA_DEST IS NULL   
  
                UNION  
  Select "PLAN CONTABLE: NO EXISTE GESTION PARA CONTRAPARTIDA O SE ENCUENTRA EN OTRA CUENTA" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, T1.DE_CNTA_EMPR AS DESCRIPCION,  
  T1.FE_ASTO_CNTB AS FECHA_ASIENTO, T1.TI_AUXI_EMPR AS TIPO_AUXILIAR,  
  T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR, T1.CO_ORDE_SERV AS ACTIVIDAD,  
  T1.CO_UNID_CNTB AS UNIDAD_CONTABLE, T1.CO_OPRC_CNTB AS OPERACION_CONTABLE,  
  T1.NU_ASTO AS NUMERO_ASIENTO, T1.NU_SECU AS SECUENCIAL, T1.TI_DOCU AS TIPO_DOCUMENTO,  
  T1.NU_DOCU AS NUMERO_DOCUMENTO, CONVERT(VARCHAR(10), T1.FE_DOCU, 103) AS FECHA_DOCUMENTO,  
  T1.DE_GLOS AS GLOSA, T1.TI_OPER AS TIPO_OPERACION, T1.IM_MVTO_ORIG AS IMPORTE_ORIGEN,  
  T1.IM_MVTO_CNTB AS IMPORTE_CONTABLE,   
  (Case When t1.NU_PROC = 0 Then "OFITESO" Else t3.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX T1  
  Left Outer Join TTPROC_INTE t3  
  On t3.CO_EMPR = t1.CO_EMPR   
  And t3.NU_PROC = t1.NU_PROC  
  Where t1.ST_GEST_CNTA = "S"  
  And t1.TI_SITU = "ACT"  
  And t1.CO_CNTA_CONT IS NOT NULL  
  And Not Exists (Select CO_EMPR From #TWMVTO_FCOERCX  
  Where CO_UNID_ORIG = t1.CO_UNID_CNTB  
  And CO_OPRC_ORIG = t1.CO_OPRC_CNTB  
  And NU_ASTO_ORIG = t1.NU_ASTO  
  And NU_SECU_ORIG = t1.NU_SECU  
  And CO_CNTA_ORIG = t1.CO_CNTA_EMPR  
  And ST_GEST_ASTO = "S"   
  And t1.CO_EMPR = CO_EMPR  
  And t1.CO_CNTA_CONT = CO_CNTA_EMPR)   
    
  Union  
  Select "PLAN CONTABLE: NO EXISTE GESTION PARA DESTINO O SE ENCUENTRA EN OTRA CUENTA" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, T1.DE_CNTA_EMPR AS DESCRIPCION,  
  T1.FE_ASTO_CNTB AS FECHA_ASIENTO, T1.TI_AUXI_EMPR AS TIPO_AUXILIAR,  
  T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR, T1.CO_ORDE_SERV AS ACTIVIDAD,  
  T1.CO_UNID_CNTB AS UNIDAD_CONTABLE, T1.CO_OPRC_CNTB AS OPERACION_CONTABLE,  
  T1.NU_ASTO AS NUMERO_ASIENTO, T1.NU_SECU AS SECUENCIAL, T1.TI_DOCU AS TIPO_DOCUMENTO,  
  T1.NU_DOCU AS NUMERO_DOCUMENTO, CONVERT(VARCHAR(10), T1.FE_DOCU, 103) AS FECHA_DOCUMENTO,  
  T1.DE_GLOS AS GLOSA, T1.TI_OPER AS TIPO_OPERACION, T1.IM_MVTO_ORIG AS IMPORTE_ORIGEN,  
  T1.IM_MVTO_CNTB AS IMPORTE_CONTABLE,   
  (Case When t1.NU_PROC = 0 Then "OFITESO" Else t3.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX T1  
  Left Outer Join TTPROC_INTE t3  
  On t3.CO_EMPR = t1.CO_EMPR   
  And t3.NU_PROC = t1.NU_PROC  
  Where t1.ST_GEST_CNTA = "S"  
  And t1.TI_SITU = "ACT"  
  And t1.CO_CNTA_DEST IS NOT NULL  
  And Not Exists (Select CO_EMPR From #TWMVTO_FCOERCX  
  Where CO_UNID_ORIG = t1.CO_UNID_CNTB  
  And CO_OPRC_ORIG = t1.CO_OPRC_CNTB  
  And NU_ASTO_ORIG = t1.NU_ASTO    And NU_SECU_ORIG = t1.NU_SECU  
  And CO_CNTA_ORIG = t1.CO_CNTA_EMPR  
  And ST_GEST_ASTO = "S"   
  And t1.CO_EMPR = CO_EMPR  
  And t1.CO_CNTA_DEST = CO_CNTA_EMPR)    
    
  Union  
  
  
  
Select "GESTION DEFINIDA POR AUXILIAR, NO EXISTE GESTION PARA CONTRAPARTIDA O SE ENCUENTRA EN OTRA CUENTA" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, T1.DE_CNTA_EMPR AS DESCRIPCION,  
  T1.FE_ASTO_CNTB AS FECHA_ASIENTO, T1.TI_AUXI_EMPR AS TIPO_AUXILIAR,  
  T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR, T1.CO_ORDE_SERV AS ACTIVIDAD,  
  T1.CO_UNID_CNTB AS UNIDAD_CONTABLE, T1.CO_OPRC_CNTB AS OPERACION_CONTABLE,  
  T1.NU_ASTO AS NUMERO_ASIENTO, T1.NU_SECU AS SECUENCIAL, T1.TI_DOCU AS TIPO_DOCUMENTO,  
  T1.NU_DOCU AS NUMERO_DOCUMENTO, CONVERT(VARCHAR(10), T1.FE_DOCU, 103) AS FECHA_DOCUMENTO,  
  T1.DE_GLOS AS GLOSA, T1.TI_OPER AS TIPO_OPERACION, T1.IM_MVTO_ORIG AS IMPORTE_ORIGEN,  
  T1.IM_MVTO_CNTB AS IMPORTE_CONTABLE,   
  (Case When t1.NU_PROC = 0 Then "OFITESO" Else t4.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX t1  
  Left Outer Join TTPROC_INTE t4   
  On t4.CO_EMPR = t1.CO_EMPR   
  And t4.NU_PROC = t1.NU_PROC, TRAUXI_GEST t3    
  Where t1.ST_GEST_CNTA = "S"  
  And t1.TI_SITU = "ACT"  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_EMPR  
  And t3.TI_AUXI_EMPR = t1.TI_AUXI_EMPR  
  And t3.CO_AUXI_EMPR = t1.CO_AUXI_EMPR  
  And Rtrim(IsNull(t3.CO_CNTA_CONT, "")) != ""  
  And Not Exists (Select t5.CO_EMPR From #TWMVTO_FCOERCX t5, TRAUXI_GEST t6  
  Where t5.CO_UNID_ORIG = t1.CO_UNID_CNTB  
  And t5.CO_OPRC_ORIG = t1.CO_OPRC_CNTB  
  And t5.NU_ASTO_ORIG = t1.NU_ASTO  
  And t5.NU_SECU_ORIG = t1.NU_SECU  
  And t5.CO_CNTA_ORIG = t1.CO_CNTA_EMPR  
  And t5.ST_GEST_ASTO = "S"   
  And t6.CO_EMPR = t1.CO_EMPR  
  And t6.CO_CNTA_EMPR = t1.CO_CNTA_EMPR  
  And t6.TI_AUXI_EMPR = t1.TI_AUXI_EMPR  
  And t6.CO_AUXI_EMPR = t1.CO_AUXI_EMPR  
  And t6.CO_EMPR = t5.CO_EMPR  
  And t6.CO_CNTA_CONT = t5.CO_CNTA_EMPR)   
  Union  
  
Select "GESTION DEFINIDA POR AUXILIAR, NO EXISTE GESTION PARA DESTINO O SE ENCUENTRA EN OTRA CUENTA" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, T1.DE_CNTA_EMPR AS DESCRIPCION,  
  T1.FE_ASTO_CNTB AS FECHA_ASIENTO, T1.TI_AUXI_EMPR AS TIPO_AUXILIAR,  
  T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR, T1.CO_ORDE_SERV AS ACTIVIDAD,  
  T1.CO_UNID_CNTB AS UNIDAD_CONTABLE, T1.CO_OPRC_CNTB AS OPERACION_CONTABLE,  
  T1.NU_ASTO AS NUMERO_ASIENTO, T1.NU_SECU AS SECUENCIAL, T1.TI_DOCU AS TIPO_DOCUMENTO,  
  T1.NU_DOCU AS NUMERO_DOCUMENTO, CONVERT(VARCHAR(10), T1.FE_DOCU, 103) AS FECHA_DOCUMENTO,  
  T1.DE_GLOS AS GLOSA, T1.TI_OPER AS TIPO_OPERACION, T1.IM_MVTO_ORIG AS IMPORTE_ORIGEN,  
  T1.IM_MVTO_CNTB AS IMPORTE_CONTABLE,   
  (Case When t1.NU_PROC = 0 Then "OFITESO" Else t4.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX t1  
  Left Outer Join TTPROC_INTE t4   
  On t4.CO_EMPR = t1.CO_EMPR   
  And t4.NU_PROC = t1.NU_PROC, TRAUXI_GEST t3    
  Where t1.ST_GEST_CNTA = "S"  
  And t1.TI_SITU = "ACT"  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_EMPR  
  And t3.TI_AUXI_EMPR = t1.TI_AUXI_EMPR  
  And t3.CO_AUXI_EMPR = t1.CO_AUXI_EMPR  
  And Rtrim(IsNull(t3.CO_CNTA_DEST, ""))  != ""  
  And Not Exists (Select t5.CO_EMPR From #TWMVTO_FCOERCX t5, TRAUXI_GEST t6  
  Where t5.CO_UNID_ORIG = t1.CO_UNID_CNTB  
  And t5.CO_OPRC_ORIG = t1.CO_OPRC_CNTB  
  And t5.NU_ASTO_ORIG = t1.NU_ASTO  
  And t5.NU_SECU_ORIG = t1.NU_SECU  
  And t5.CO_CNTA_ORIG = t1.CO_CNTA_EMPR  
  And t5.ST_GEST_ASTO = "S"   
  And t6.CO_EMPR = t1.CO_EMPR  
  And t6.CO_CNTA_EMPR = t1.CO_CNTA_EMPR  
  And t6.TI_AUXI_EMPR = t1.TI_AUXI_EMPR  
  And t6.CO_AUXI_EMPR = t1.CO_AUXI_EMPR  
  And t6.CO_EMPR = t5.CO_EMPR  
  And t6.CO_CNTA_DEST = t5.CO_CNTA_EMPR)   
 Union  
  
  
  
  
  Select "PLAN CONTABLE: EXISTE MOVIMIENTO GESTION CONTRAPARTIDA PERO NO EL MOVIMIENTO ORIGEN" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, T1.DE_CNTA_EMPR AS DESCRIPCION,  
  T1.FE_ASTO_CNTB AS FECHA_ASIENTO, T1.TI_AUXI_EMPR AS TIPO_AUXILIAR,  
  T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR, T1.CO_ORDE_SERV AS ACTIVIDAD,  
  T1.CO_UNID_CNTB AS UNIDAD_CONTABLE, T1.CO_OPRC_CNTB AS OPERACION_CONTABLE,  
  T1.NU_ASTO AS NUMERO_ASIENTO, T1.NU_SECU AS SECUENCIAL, T1.TI_DOCU AS TIPO_DOCUMENTO,  
  T1.NU_DOCU AS NUMERO_DOCUMENTO, CONVERT(VARCHAR(10), T1.FE_DOCU, 103) AS FECHA_DOCUMENTO,  
  T1.DE_GLOS AS GLOSA, T1.TI_OPER AS TIPO_OPERACION, T1.IM_MVTO_ORIG AS IMPORTE_ORIGEN,  
  T1.IM_MVTO_CNTB AS IMPORTE_CONTABLE,   
  (Case When t1.NU_PROC = 0 Then "OFITESO" Else t4.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX t1  
  Left Outer Join TTPROC_INTE t4  
  On t4.CO_EMPR = t1.CO_EMPR   
  And t4.NU_PROC = t1.NU_PROC,  
  (Select CO_EMPR, NU_ANNO, CO_CNTA_EMPR, CO_CNTA_CONT   
   From TMPLAN_ANNO  
   Where CO_EMPR = "' + @ISCO_EMPR + '"  
   And ST_GEST = "S"  
   And  Rtrim(IsNull(CO_CNTA_CONT, "")) != "" )t3  
  Where t1.ST_GEST_ASTO = "S"  
  And t1.TI_SITU = "ACT"  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And t3.CO_CNTA_CONT = t1.CO_CNTA_EMPR  
  And Not Exists (Select CO_EMPR From #TWMVTO_FCOERCX  
  Where CO_UNID_CNTB = t1.CO_UNID_ORIG  
  And CO_OPRC_CNTB = t1.CO_OPRC_ORIG  
  And NU_ASTO = t1.NU_ASTO_ORIG  
  And NU_SECU = t1.NU_SECU_ORIG  
  And CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And ST_GEST_ASTO = "N"   
  And t3.CO_EMPR = CO_EMPR  
  And t3.CO_CNTA_EMPR = CO_CNTA_EMPR  
  And t3.CO_CNTA_CONT = t1.CO_CNTA_EMPR)     
  Union  
  Select "PLAN CONTABLE: EXISTE MOVIMIENTO GESTION DESTINO PERO NO EL MOVIMIENTO ORIGEN" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, T1.DE_CNTA_EMPR AS DESCRIPCION,  
  T1.FE_ASTO_CNTB AS FECHA_ASIENTO, T1.TI_AUXI_EMPR AS TIPO_AUXILIAR,  
  T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR, T1.CO_ORDE_SERV AS ACTIVIDAD,  
  T1.CO_UNID_CNTB AS UNIDAD_CONTABLE, T1.CO_OPRC_CNTB AS OPERACION_CONTABLE,  
  T1.NU_ASTO AS NUMERO_ASIENTO, T1.NU_SECU AS SECUENCIAL, T1.TI_DOCU AS TIPO_DOCUMENTO,  
  T1.NU_DOCU AS NUMERO_DOCUMENTO, CONVERT(VARCHAR(10), T1.FE_DOCU, 103) AS FECHA_DOCUMENTO,  
  T1.DE_GLOS AS GLOSA, T1.TI_OPER AS TIPO_OPERACION, T1.IM_MVTO_ORIG AS IMPORTE_ORIGEN,  
  T1.IM_MVTO_CNTB AS IMPORTE_CONTABLE,   
  (Case When t1.NU_PROC = 0 Then "OFITESO" Else t4.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX t1  
  Left Outer Join TTPROC_INTE t4  
  On t4.CO_EMPR = t1.CO_EMPR   
  And t4.NU_PROC = t1.NU_PROC,   
  (Select CO_EMPR, NU_ANNO, CO_CNTA_EMPR, CO_CNTA_DEST   
   From TMPLAN_ANNO  
   Where CO_EMPR = "' + @ISCO_EMPR + '"  
   And ST_GEST = "S"  
   And Rtrim(IsNull(CO_CNTA_DEST, "")) != "" )t3   
  Where t1.ST_GEST_ASTO = "S"  
  And t1.TI_SITU = "ACT"  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And t3.CO_CNTA_DEST = t1.CO_CNTA_EMPR  
  And Not Exists (Select CO_EMPR From #TWMVTO_FCOERCX  
  Where CO_UNID_CNTB = t1.CO_UNID_ORIG  
  And CO_OPRC_CNTB = t1.CO_OPRC_ORIG  
  And NU_ASTO = t1.NU_ASTO_ORIG  
  And NU_SECU = t1.NU_SECU_ORIG  
  And CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And ST_GEST_ASTO = "N"  
  And t3.CO_EMPR = CO_EMPR  
  And t3.CO_CNTA_EMPR = CO_CNTA_EMPR  
  And t3.CO_CNTA_DEST = t1.CO_CNTA_EMPR)   
 Union  
  Select "GESTION DEFINIDA POR AUXILIAR, EXISTE MOVIMIENTO GESTION CONTRAPARTIDA PERO NO EL MOVIMIENTO ORIGEN" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, T1.DE_CNTA_EMPR AS DESCRIPCION,  
  T1.FE_ASTO_CNTB AS FECHA_ASIENTO, T1.TI_AUXI_EMPR AS TIPO_AUXILIAR,  
  T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR, T1.CO_ORDE_SERV AS ACTIVIDAD,  
  T1.CO_UNID_CNTB AS UNIDAD_CONTABLE, T1.CO_OPRC_CNTB AS OPERACION_CONTABLE,  
  T1.NU_ASTO AS NUMERO_ASIENTO, T1.NU_SECU AS SECUENCIAL, T1.TI_DOCU AS TIPO_DOCUMENTO,  
  T1.NU_DOCU AS NUMERO_DOCUMENTO, CONVERT(VARCHAR(10), T1.FE_DOCU, 103) AS FECHA_DOCUMENTO,  
  T1.DE_GLOS AS GLOSA, T1.TI_OPER AS TIPO_OPERACION, T1.IM_MVTO_ORIG AS IMPORTE_ORIGEN,  
  T1.IM_MVTO_CNTB AS IMPORTE_CONTABLE,   
  (Case When t1.NU_PROC = 0 Then "OFITESO" Else t4.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX t1  
  Left Outer Join TTPROC_INTE t4  
  On t4.CO_EMPR = t1.CO_EMPR   
  And t4.NU_PROC = t1.NU_PROC,   
  (Select CO_EMPR, NU_ANNO, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, CO_CNTA_CONT   
   From TRAUXI_GEST  
   Where CO_EMPR = "' + @ISCO_EMPR + '"  
   And Rtrim(IsNull(CO_CNTA_CONT, "")) != "" )t3    
  Where t1.ST_GEST_ASTO = "S"  
  And t1.TI_SITU = "ACT"  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And t3.CO_CNTA_CONT = t1.CO_CNTA_EMPR  
  And Not Exists (Select tX.CO_EMPR From #TWMVTO_FCOERCX tX, TRAUXI_GEST tY  
  Where tX.CO_UNID_CNTB = t1.CO_UNID_ORIG  
  And tX.CO_OPRC_CNTB = t1.CO_OPRC_ORIG  
  And tX.NU_ASTO = t1.NU_ASTO_ORIG  
  And tX.NU_SECU = t1.NU_SECU_ORIG  
  And tX.CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And tX.ST_GEST_ASTO = "N"   
  And tY.CO_EMPR = tX.CO_EMPR   
  And tY.CO_CNTA_EMPR = tX.CO_CNTA_EMPR   
  And tY.TI_AUXI_EMPR = tX.TI_AUXI_EMPR   
  And tY.CO_AUXI_EMPR = tX.CO_AUXI_EMPR )    
    
  Union  
  Select "GESTION DEFINIDA POR AUXILIAR, EXISTE MOVIMIENTO GESTION DESTINO PERO NO EL MOVIMIENTO ORIGEN" AS ERROR,  
  T1.CO_CNTA_EMPR AS CUENTA_CONTABLE, T1.DE_CNTA_EMPR AS DESCRIPCION,  
  T1.FE_ASTO_CNTB AS FECHA_ASIENTO, T1.TI_AUXI_EMPR AS TIPO_AUXILIAR,  
  T1.CO_AUXI_EMPR AS CODIGO_AUXILIAR, T1.CO_ORDE_SERV AS ACTIVIDAD,  
  T1.CO_UNID_CNTB AS UNIDAD_CONTABLE, T1.CO_OPRC_CNTB AS OPERACION_CONTABLE,  
  T1.NU_ASTO AS NUMERO_ASIENTO, T1.NU_SECU AS SECUENCIAL, T1.TI_DOCU AS TIPO_DOCUMENTO,  
  T1.NU_DOCU AS NUMERO_DOCUMENTO, CONVERT(VARCHAR(10), T1.FE_DOCU, 103) AS FECHA_DOCUMENTO,  
  T1.DE_GLOS AS GLOSA, T1.TI_OPER AS TIPO_OPERACION, T1.IM_MVTO_ORIG AS IMPORTE_ORIGEN,  
  T1.IM_MVTO_CNTB AS IMPORTE_CONTABLE,   
  (Case When t1.NU_PROC = 0 Then "OFITESO" Else t4.CO_SIST End) AS CODIGO_SISTEMA,  
  t1.CO_USUA_CREA AS USUARIO_CREO,t1.FE_USUA_CREA AS FECHA_CREACION,  
  t1.CO_USUA_MODI AS USUARIO_MODIFICO,t1.FE_USUA_MODI AS FECHA_MODIFICACION  
  From #TWMVTO_FCOERCX t1  
  Left Outer Join TTPROC_INTE t4  
  On t4.CO_EMPR = t1.CO_EMPR   
  And t4.NU_PROC = t1.NU_PROC,   
  (Select CO_EMPR, NU_ANNO, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, CO_CNTA_DEST  
   From TRAUXI_GEST  
   Where CO_EMPR = "' + @ISCO_EMPR + '"  
   And Rtrim(IsNull(CO_CNTA_DEST, "")) != "" )t3    
  Where t1.ST_GEST_ASTO = "S"  
  And t1.TI_SITU = "ACT"  
  And t3.CO_EMPR = t1.CO_EMPR  
  And t3.CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And t3.CO_CNTA_DEST = t1.CO_CNTA_EMPR  
  And Not Exists (Select tX.CO_EMPR From #TWMVTO_FCOERCX tX, TRAUXI_GEST tY  
  Where tX.CO_UNID_CNTB = t1.CO_UNID_ORIG  
  And tX.CO_OPRC_CNTB = t1.CO_OPRC_ORIG  
  And tX.NU_ASTO = t1.NU_ASTO_ORIG  
  And tX.NU_SECU = t1.NU_SECU_ORIG  
  And tX.CO_CNTA_EMPR = t1.CO_CNTA_ORIG  
  And tX.ST_GEST_ASTO = "N"   
  And tY.CO_EMPR = tX.CO_EMPR   
  And tY.CO_CNTA_EMPR = tX.CO_CNTA_EMPR   
  And tY.TI_AUXI_EMPR = tX.TI_AUXI_EMPR   
  And tY.CO_AUXI_EMPR = tX.CO_AUXI_EMPR)  
  Order BY 1, 2 ')  
  
End   
                  
Return                  
/*-------------------------------- Fin -----------------------------*/  


GO
